home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / text / edit / vim60rt.lha / Vim / vim60 / syntax / mason.vim < prev    next >
Encoding:
Text File  |  2001-07-28  |  3.4 KB  |  100 lines
  1. " Vim syntax file
  2. " Language:    Mason (Perl embedded in HTML)
  3. " Maintainer:  Andrew Smith <andrewdsmith@yahoo.com>
  4. " Last change: 2001 Jul 28
  5. " URL:         http://www.masonhq.com/editors/mason.vim
  6. "
  7. " This seems to work satisfactorily with html.vim and perl.vim for version 5.5.
  8. " Please mail any fixes or improvements to the above address. Things that need
  9. " doing include:
  10. "
  11. "  - Add match for component names in <& &> blocks.
  12. "  - Add match for component names in <%def> and <%method> block delimiters.
  13. "  - Fix <%text> blocks to show HTML tags but ignore Mason tags.
  14. "
  15.  
  16. " Clear previous syntax settings unless this is v6 or above, in which case just
  17. " exit without doing anything.
  18. "
  19. if version < 600
  20.     syn clear
  21. elseif exists("b:current_syntax")
  22.     finish
  23. endif
  24.  
  25. " The HTML syntax file included below uses this variable.
  26. "
  27. if !exists("main_syntax")
  28.     let main_syntax = 'mason'
  29. endif
  30.  
  31. " First pull in the HTML syntax.
  32. "
  33. if version < 600
  34.     so <sfile>:p:h/html.vim
  35. else
  36.     runtime! syntax/html.vim
  37.     unlet b:current_syntax
  38. endif
  39.  
  40. syn cluster htmlPreproc add=@masonTop
  41.  
  42. " Now pull in the Perl syntax.
  43. "
  44. if version < 600
  45.     syn include @perlTop <sfile>:p:h/perl.vim
  46. else
  47.     syn include @perlTop syntax/perl.vim
  48. endif
  49.  
  50. " It's hard to reduce down to the correct sub-set of Perl to highlight in some
  51. " of these cases so I've taken the safe option of just using perlTop in all of
  52. " them. If you have any suggestions, please let me know.
  53. "
  54. syn region masonLine matchgroup=Delimiter start="^%" end="$" contains=@perlTop
  55. syn region masonExpr matchgroup=Delimiter start="<%" end="%>" contains=@perlTop
  56. syn region masonPerl matchgroup=Delimiter start="<%perl>" end="</%perl>" contains=@perlTop
  57. syn region masonComp keepend matchgroup=Delimiter start="<&" end="&>" contains=@perlTop
  58.  
  59. syn region masonArgs matchgroup=Delimiter start="<%args>" end="</%args>" contains=@perlTop
  60.  
  61. syn region masonInit matchgroup=Delimiter start="<%init>" end="</%init>" contains=@perlTop
  62. syn region masonCleanup matchgroup=Delimiter start="<%cleanup>" end="</%cleanup>" contains=@perlTop
  63. syn region masonOnce matchgroup=Delimiter start="<%once>" end="</%once>" contains=@perlTop
  64. syn region masonShared matchgroup=Delimiter start="<%shared>" end="</%shared>" contains=@perlTop
  65.  
  66. syn region masonDef matchgroup=Delimiter start="<%def[^>]*>" end="</%def>" contains=@htmlTop
  67. syn region masonMethod matchgroup=Delimiter start="<%method[^>]*>" end="</%method>" contains=@htmlTop
  68.  
  69. syn region masonFlags matchgroup=Delimiter start="<%flags>" end="</%flags>" contains=@perlTop
  70. syn region masonAttr matchgroup=Delimiter start="<%attr>" end="</%attr>" contains=@perlTop
  71.  
  72. syn region masonFilter matchgroup=Delimiter start="<%filter>" end="</%filter>" contains=@perlTop
  73.  
  74. syn region masonDoc matchgroup=Delimiter start="<%doc>" end="</%doc>"
  75. syn region masonText matchgroup=Delimiter start="<%text>" end="</%text>"
  76.  
  77. syn cluster masonTop contains=masonLine,masonExpr,masonPerl,masonComp,masonArgs,masonInit,masonCleanup,masonOnce,masonShared,masonDef,masonMethod,masonFlags,masonAttr,masonFilter,masonDoc,masonText
  78.  
  79. " Set up default highlighting. Almost all of this is done in the included
  80. " syntax files.
  81. "
  82. if version >= 508 || !exists("did_mason_syn_inits")
  83.     if version < 508
  84.         let did_mason_syn_inits = 1
  85.         com -nargs=+ HiLink hi link <args>
  86.     else
  87.         com -nargs=+ HiLink hi def link <args>
  88.     endif
  89.  
  90.     HiLink masonDoc Comment
  91.  
  92.     delc HiLink
  93. endif
  94.  
  95. let b:current_syntax = "mason"
  96.  
  97. if main_syntax == 'mason'
  98.     unlet main_syntax
  99. endif
  100.